home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / EASYWORD.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  4.9 KB  |  140 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 7  '***************************************************************************
  3. 9  '*****************  POOR MAN WORD PROCESSOR ROUTINE  ***********************
  4. 13  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  5. 15  'OPEN                EPSON/GEMINI 10/15 SIMPLE WORD PROCESSOR                 OPEN
  6. 17  'OPEN                                                                         OPEN
  7. 19  'OPEN    This is a simple, high-speed, no-file word-processing program with   OPEN
  8. 21  'OPEN a six print style option. If you do not like the print styles, you      OPEN
  9. 23  'OPEN can modify the appropriate line with the codes contained in the print   OPEN
  10. 25  'OPEN control subroutine at line 5000.   If you do make this change, you      OPEN
  11. 27  'OPEN may wish to change the input menu.  The DIM statement is set to give    OPEN
  12. 29  'OPEN you a fifty line printed page. ENTER will give you a blank line feed.   OPEN
  13. 31  'OPEN To break out of the program when done "typewriting", use Ctrl/BREAK.    OPEN
  14. 32  'OPEN    When using print expanded print styles, remember to reduce the num-  OPEN
  15. 33  'OPEN ber of characters entered in a line or you will get wrap-around print.  OPEN
  16. 34  'OPEN    This program, in whole or part, may be used without license or       OPEN
  17. 35  'OPEN attribution.  (c) G I N A C O  -  1983               Ver 5.2/320        OPEN
  18. 37  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  19. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  20. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  21. 60  FOR I=1 TO 10:KEY I,"":NEXT:KEY OFF
  22. 100  CLS
  23. 110  SCREEN 0,0,0
  24. 120  WIDTH 80
  25. 130  CLEAR
  26. 140  GOSUB 5030
  27. 150  ON ERROR GOTO 6000
  28. 160  LPRINT CLEANUP$;
  29. 170  CLS
  30. 180  DIM A$(60)
  31. 190  GOSUB 5000
  32. 200  LOCATE 5,25
  33. 210  PRINT "SELECT PRINT SIZE AND STYLE"
  34. 220  LOCATE 7,20
  35. 230  PRINT "   PRINT SIZE             SELECTION"
  36. 240  LOCATE 8,20
  37. 250  PRINT "   ==========             =========="
  38. 260  LOCATE 10,20
  39. 270  PRINT "10 PITCH ITALICS              1"
  40. 280  LOCATE 11,20
  41. 290  PRINT "10 PITCH EMPHASIZED           2"
  42. 300  LOCATE 12,20
  43. 310  PRINT "10 PITCH TINYPRINT            3"
  44. 320  LOCATE 13,20
  45. 330  PRINT "CONDENSED EXPANDED            4"
  46. 340  LOCATE 14,20
  47. 350  PRINT "ITALICS EXPANDED              5"
  48. 360  LOCATE 15,20
  49. 370  PRINT "EXPANDED DOUBLE-STRIKE        6"
  50. 380  LOCATE 19,35
  51. 390  INPUT XX!
  52. 400  LOCATE 19,25
  53. 410  INPUT "DESIRED MARGIN ",M!
  54. 420  ON XX! GOSUB 440,480,520,560,600,640
  55. 430  GOTO 670
  56. 440  REM***************  10 PITCH ITALICS  *********************************
  57. 450  WIDTH "LPT1:",80
  58. 460  LPRINT CLEANUP$ + ITALIC$ + DARK$
  59. 470  RETURN
  60. 480  REM**************** 10 PITCH EMPHASIZED  ****************************
  61. 490  WIDTH "LPT1:",80
  62. 500  LPRINT CLEANUP$ + DARK$
  63. 510  RETURN
  64. 520  REM***************  10 PITCH TINYPRINT ROUTINE ***********************
  65. 530  WIDTH "LPT1:",80
  66. 540  LPRINT CLEANUP$ + TINYLINE$
  67. 550  RETURN
  68. 560  REM*************** CONDENSED EXPANDED ********************************
  69. 570  WIDTH "LPT1:",80
  70. 580  LPRINT CLEANUP$ + CHR$(27) CHR$(87) + CHR$(1) + EXPAND.SMALL$ + DARK$
  71. 590  RETURN
  72. 600  REM*************** ITALICS EXPANDED CONDENSED EMPHASIZED *************
  73. 610  WIDTH "LPT1:",80
  74. 620  LPRINT CLEANUP$ + CHR$(27) CHR$(87) + CHR$(1) + ITALIC.EXP.CON$ + DARK$
  75. 630  RETURN
  76. 640  REM*************** EXPANDED DSTRIKE **********************************
  77. 650  LPRINT CLEANUP$ + CHR$(27) CHR$(87) + CHR$(1) + START.DSTRIKE$
  78. 660  RETURN
  79. 670  CLS
  80. 680  KEY OFF
  81. 690  LOCATE 25,20
  82. 700  PRINT "TO LEAVE WHEN DONE TYPING, USE CTRL/BREAK";
  83. 710  :REM ******* INPUT OUTPUT ROUTINE *********************************
  84. 720  LOCATE 1,10
  85. 730  PRINT "MAXIMUM CHARACTERS PER LINE <INCLUDING MARGIN> IS SET AT 80 ";
  86. 740  PRINT "0--------1---------2---------3---------4---------5---------6---------7---------8";
  87. 750  PRINT
  88. 760  FOR I! = 1 TO 55
  89. 770    PRINT TAB( M! - 2)I!;
  90. 780    LINE INPUT A$(I!)
  91. 790    LPRINT TAB( M!);A$(I!)
  92. 800  NEXT
  93. 810  CLS
  94. 820  LOCATE 10,20
  95. 830  PRINT "THAT IS THE END OF THE PAGE"
  96. 840  FOR I! = 1 TO 6000
  97. 850  NEXT
  98. 860  RUN
  99. 5000  REM**************** PRINTER INITIALIZATION ***************************
  100. 5030  REM **** PRINTER SUBROUTINES ***
  101. 5060  SMALL$ = CHR$(15)
  102. 5090  UNSMALL$ = CHR$(18)
  103. 5120  EXPAND.SMALL$ = CHR$(14) + CHR$(15)
  104. 5150  CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
  105. 5180  EXPAND$ = CHR$(14)
  106. 5210  EXPAND.END$ = CHR$(20)
  107. 5240  DARK$ = CHR$(27) + CHR$(69)
  108. 5270  ITALIC$ = CHR$(27) + CHR$(52)
  109. 5300  ITALIC.EXP.CON$ = CHR$(14) + CHR$(15) + CHR$(27) + CHR$(52)
  110. 5330  ITALIC.EXP$ = CHR$(27) + CHR$(52) + CHR$(14)
  111. 5360  END.ITALIC$ = CHR$(27) + CHR$(53)
  112. 5390  START.ULINE$ = CHR$(27) + CHR$(45) + CHR$(1)
  113. 5420  END.ULINE$ = CHR$(27) + CHR$(45) + CHR$(0)
  114. 5450  PERM.EXPAN$ = CHR$(27) + CHR$(87) + CHR$(1)
  115. 5480  END.PERMEXP$ = CHR$(27) + CHR$(87) + CHR$(0)
  116. 5510  START.DSTRIKE$ = CHR$(27) + CHR$(71)
  117. 5540  END.DSTRIKE$ = CHR$(27) + CHR$(72)
  118. 5570  TINYLINE$ = CHR$(27) + CHR$(83) + CHR$(0)
  119. 5600  END.TINY$ = CHR$(27) + CHR$(84)
  120. 5630  ESC$ = CHR$(27)
  121. 5660  CLEANUP$ = CHR$(27) + CHR$(64)
  122. 5690  RETURN
  123. 6000  REM ********* PRINTER ERROR ROUTINE ***************
  124. 6030  IF ERR = 24 THEN 6120 ELSE 6060
  125. 6060  IF ERR = 25 THEN 6120 ELSE 6090
  126. 6090  ON ERROR GOTO 0
  127. 6120  KEY OFF
  128. 6150  BEEP
  129. 6180  BEEP
  130. 6210  LOCATE 25,1
  131. 6240  PRINT SPC( 79)
  132. 6270  LOCATE 25,20
  133. 6300  PRINT "CHECK PRINTER - PRESS ANY KEY TO CONTINUE"
  134. 6330  IF INKEY$ = "" THEN 6330
  135. 6360  KEY OFF
  136. 6390  RESUME
  137. 6420  END
  138. 65000   '************************ SAVE ROUTINE *******************************
  139. 65100  SAVE"B:EASYWORD.BAS
  140.